home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / gfx / conv / XTrace_GerDoc.lha / XTrace / Documentation / German / Install_Doc next >
Text File  |  1997-07-15  |  4KB  |  91 lines
  1. ; $VER: Install 1.20 - Copyright by Condor's, Inc. All Rights Reserved.
  2. ; Script to install the german XTrace V 1.20 documentation
  3.  
  4. ; ============================================================================
  5. ; Strings
  6. ; ============================================================================
  7.  
  8. ; German strings
  9.  
  10. (SET Msg_Welcome       "Willkommen zur Installation der\ndeutschen XTrace V 1.20 Dokumentation !\n\nCopyright by Ronny Schütz / Condor's, Inc. Leipzig\nAll rights reserved.\n\nSie können jederzeit die Installation abbrechen und alle neu installierten Teile von XTrace werden gelöscht.\n\nDiese Install-Script wurde mit dem Installer V43.3 (aminet:util/misc/Installer-43_3.lha) getestet.")
  11. (SET Msg_Dir           "Wählen Sie bitte das Verzeichnis in dem sich das XTrace VERZEICHNIS befindet.")
  12. (SET Msg_ErrorDir      "XTrace V1.20 wurde nicht oder nicht korrekt installiert.\n\nBitte installieren Sie XTrace bevor Sie die Dokumentation installieren.\n\nWenn Sie alle nötigen XTrace Archive in dasselbe Verzeichnis entpackt haben können Sie diese Dokumentation zusammen mit den anderen XTrace Teilen installieren. Für weitere Informationen lesen Sie bitte die Datei 'Read_Me_First'.")
  13. (SET Msg_Bye           "\n\n\n\nDanke das Sie die deutsche XTrace Dokumentation installiert haben. Vergessen Sie nicht sich registrieren zu lassen !")
  14. (SET Msg_ByeReg        "\n\n\n\nDanke das Sie die deutsche XTrace Dokumentation installiert haben.")
  15.  
  16. (SET Msg_Abort         "Installation abgebrochen. Wollen Sie die bereits installierten Dateien löschen ?\n\nDa Sie eine installierte Dokumentation geupdatet haben könnte diese bereits überschrieben worden sein. Installieren Sie diese alte Dokumentation bitte neu.\n\n")
  17. (SET Msg_Abort_RYes    "Ja, entfernen")
  18. (SET Msg_Abort_RNo     "Nein")
  19.  
  20. ; ============================================================================
  21. ; Initialization
  22. ; ============================================================================
  23.  
  24. ; Set up error routine
  25.  
  26. (ONERROR
  27.  (IF (EXISTS "XTDest:" (NOREQ))
  28.  (
  29.   (IF (ASKBOOL
  30.    (PROMPT Msg_Abort)
  31.    (HELP @ASKBOOL-HELP)
  32.    (CHOICES Msg_Abort_RYes
  33.             Msg_Abort_RNo)
  34.    (DEFAULT 0))
  35.    (
  36.     (DELETE "XTDest:XTrace/Guides/XTrace_#?.guide" (OPTIONAL FORCE))
  37.     (DELETE "XTDest:XTrace/Read_Me_First"       (OPTIONAL FORCE))
  38.    )
  39.   )
  40.  
  41.   (MAKEASSIGN "XTSrc"  (SAFE))
  42.   (MAKEASSIGN "XTDest" (SAFE))
  43.  ))
  44. )
  45.  
  46. ; ============================================================================
  47. ; Installation
  48. ; ============================================================================
  49.  
  50. (MESSAGE Msg_Welcome)
  51. (COMPLETE 0)
  52.  
  53. ; cancel the assign in case of installation restart
  54.  
  55. (MAKEASSIGN "XTSrc" (SAFE))
  56. (MAKEASSIGN "XTDest" (SAFE))
  57.  
  58. ; ============================================================================
  59. ; Ask for directory
  60. ; ============================================================================
  61.  
  62. (SET XTDest (TACKON (ASKDIR (PROMPT Msg_Dir) (HELP @ASKDIR-HELP) (DEFAULT @default-dest)) "XTrace"))
  63. (MAKEASSIGN "XTDest" (PATHONLY XTDest) (SAFE))
  64.  
  65. (MAKEASSIGN "XTSrc" "")
  66. (SET @default-dest (EXPANDPATH "XTDest:"))
  67.  
  68. ; ============================================================================
  69. ; Check directories
  70. ; ============================================================================
  71.  
  72. (IF (NOT (AND ((EXISTS "XTDest:XTrace") (EXISTS "XTDest:XTrace/Guides")))) (ABORT Msg_ErrorDir))
  73.  
  74. ; ============================================================================
  75. ; Copy guide and Read_Me_First
  76. ; ============================================================================
  77.  
  78. (COPYFILES (SOURCE "XTSrc:") (DEST "XTDest:XTrace/Guides/") (PATTERN "XTrace_#?.guide"))
  79. (COPYFILES (SOURCE "XTSrc:Read_Me_First") (DEST "XTDest:XTrace/"))
  80.  
  81. ; ============================================================================
  82. ; Cleanup & End
  83. ; ============================================================================
  84.  
  85. (COMPLETE 100)
  86.  
  87. (MAKEASSIGN "XTSrc"  (SAFE))
  88. (MAKEASSIGN "XTDest" (SAFE))
  89.  
  90. (IF (EXISTS "DEVS:KeyFiles/XTrace.key") (EXIT Msg_ByeReg) (EXIT Msg_Bye))
  91.